home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / nyquist.src < prev    next >
Text File  |  1991-05-29  |  957b  |  29 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ NYQUIST, by Raymond Wong
  3. DIR
  4.   G
  5.     \<< \-> S '10/(S*(S         @ edit this transfer function, leave \-> S
  6. +1)*(S+2))'                     @ in tact
  7.     \>>
  8.   PPAR { (-5,-10)               @ Real/Imaginary range of plot
  9. (.1,20) W 0 (0,0)
  10. FUNCTION C }
  11.   NYQUIST                       @ Nyquist point plot
  12.     \<< ERASE .001              @ Adjust .001 100 to appropriate start,
  13. 100                             @ stop frequency range
  14.       FOR W i W * G
  15. \->NUM PIXON PICT RCL
  16. \->LCD .1                       @ Adjust .1 to appropriate freq. step rate
  17.       STEP
  18.     \>>
  19.   NYQL                          @ Nyquist line plot
  20.     \<< ERASE .001 i
  21. * G \->NUM .001 100             @ Adjust .001 100 to appropriate start,
  22.       FOR W i W * G             @ stop frequency range
  23. \->NUM DUP 3 ROLLD
  24. LINE PICT RCL \->LCD
  25. .5                              @ Adjust .5 to appropriate freq. step rate
  26.       STEP
  27.     \>>
  28. END
  29.